home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / sports info / AnySchedule Schedule Builder 1.0 / buildsched.ZIP / builddat next >
Encoding:
Text File  |  1999-05-14  |  940 b   |  39 lines
  1. /* Build AnyScheduler PDB data portion */
  2. trace off
  3. parse arg infile
  4. del 'datapart.dat'
  5. outfile = 'datapart.dat'
  6. title1 = '  '
  7. title2 = '  '
  8. outrec = title1
  9. pos = length(title1)
  10. len = 40 - pos
  11. outrec = insert('00'x,outrec,pos,len,'00'x)
  12. outrec = insert(title2,outrec,40,40,'00'x)
  13. outrec = insert(' ',outrec,80,40,'00'x)
  14. reslt = charout(outfile,outrec)
  15. num = 1
  16. loop:
  17. inrec = linein(infile)
  18. if inrec = ' ' then do
  19.    reslt = charout(outfile)
  20.    exit num ;
  21. end
  22. num = num + 1
  23. mydate = substr(inrec,1,10)
  24. time = substr(inrec,12,8)
  25. event = substr(inrec,21,39)
  26. event = strip(event)
  27. locat = substr(inrec,61,39)
  28. locat = strip(locat)
  29. other = substr(inrec,101,19)
  30. other = strip(other)
  31. outrec = mydate
  32. outrec = insert(time,outrec,11,9,'00'x)
  33. outrec = insert(event,outrec,20,40,'00'x)
  34. outrec = insert(locat,outrec,60,40,'00'x)
  35. outrec = insert(other,outrec,100,20,'00'x)
  36. reslt = charout(outfile,outrec)
  37. signal loop
  38.  
  39.